
type results = { total : int
               ; correct : int
               ; incorrect : string list
               ; errors : string list
               }

val pp : results -> unit 
